Sprite 1984 - 1993/Sprite 1984 - 1993.iso/lib/perl/netdb.ph

Text File | 1991-08-11 | 269b | 11 lines

if (!defined &_NETDB) {
    eval 'sub _NETDB {1;}';
    eval 'sub h_addr { &h_addr_list[0];}';
    eval 'sub HOST_NOT_FOUND {1;}';
    eval 'sub TRY_AGAIN {2;}';
    eval 'sub NO_RECOVERY {3;}';
    eval 'sub NO_DATA {4;}';
    eval 'sub NO_ADDRESS { &NO_DATA;}';
}
1;